hc <- highchart() %>% 
  hc_xAxis(categories = month.abb) %>% 
  hc_add_series(name = "Tokyo", data = sample(1:12)) %>% 
  hc_add_series(name = "London", data = sample(1:12) + 10)

hc

hc %>% 
  hc_chart(
    type = "column",
    options3d = list(enabled = TRUE, beta = 15, alpha = 15)
    )


hc %>% 
  hc_chart(
    borderColor = "#EBBA95",
    borderRadius = 10,
    borderWidth = 2,
    backgroundColor = list(
      linearGradient = c(0, 0, 500, 500),
      stops = list(
        list(0, 'rgb(255, 255, 255)'),
        list(1, 'rgb(200, 200, 255)')
             )
      )
    )

